home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / misc / over5_0.lha / Over5 / boot.asc next >
Text File  |  1995-08-09  |  530b  |  16 lines
  1. bList 0.18  Copyright (c) 1995 Daniel Kahlin.
  2. file: 'boot'  $0801-$0944 (323 bytes, 2 blocks)
  3.  
  4. 100 OPEN2,2,3,CHR$(5)+CHR$(0)
  5. 110 PRINT"WAITING..."
  6. 120 GOSUB 400:IF A$<>"S" THEN 120
  7. 130 GOSUB 400:IF A$="S" THEN 130
  8. 140 C=A:I=A:GOSUB 400:I=I+A*256
  9. 150 GOSUB 400:E=A:GOSUB 400:E=E+A*256
  10. 160 GOSUB 400:PRINT"*";:POKEI,A:I=I+1:IF I<>E THEN 160
  11. 170 GOSUB 400:IF C<>0 THEN PRINT:PRINT"?CHK ERROR":CLOSE2:END
  12. 180 PRINT:PRINT"CHK OK":CLOSE2:END
  13. 400 GET#2,A$:IF ST=8 THEN 400
  14. 410 IF A$="" THEN A$=CHR$(0)
  15. 420 A=ASC(A$):C=(C+A)AND255:RETURN
  16.